The Arsenal Files 6/The Arsenal Files 6 (Arsenal Computer).ISO/wildcat/mb-tmw13.zip/MB-WALL.WCX

Wildcat! WCX | 1996-02-25 | 15KB | 1,002 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  15254 bytes  01/28/123  08:37:16pm
'! Code Segment Size  :10509 bytes
'! Data Segment Size  :6232 bytes
'! String Segment Size:4745 bytes
'! Compiled with WCC version ? 019C017B

      Type Type29
        Filler0(1 To 6) As Byte
        s6 As String*70
        s76 As String*10
        l86 As Long
        s90 As String*70
        s160 As String*10
        l170 As Long
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Type Type28
        s0 As String*4
        s4 As String*26
        s30 As String*9
        s39 As String*20
        s59 As String*2
      End Type

      Type Type27
        Filler0(1 To 39) As Byte
        s39 As String*20
        s59 As String*2
      End Type

      Type Type26
        s0 As String*4
        Filler4(1 To 55) As Byte
        s59 As String*2
      End Type

      Declare Function Func2447(s65534 As String, i65532 As Integer) As String
      Declare Function Func2584(s65534 As String) As Integer
      Declare Function Func2908(i65534 As Integer) As String
      Declare Function Func3567(s65534 As String, i65532 As Integer) As String
      Declare Sub Sub3644(o65534 As Boolean, o65532 As Boolean, s65530 As String)
      Declare Function Func4064(s65534 As String) As Boolean
'!      Declare Function Func4331(i65534 As Integer) As String
      Declare Function Func4475(s65534 As String) As Boolean
      Declare Function Func4827 As Boolean
      Declare Function Func6070(s65534 As String, i65532 As Integer, i65530 As Integer, s65528 As String) As String
      Declare Function Func6342 As Integer
      Declare Function Func7091(s65534 As String) As String
      Declare Function Func8762(s65534 As String) As String
      Declare Sub Sub8985
      Declare Sub Sub9573(i65534 As Integer)

      Dim s4463 As String
      Dim s4467 As String
      Dim s4471 As String
      Dim s4475 As String
      Dim s4479 As String
      Dim s4483 As String*1
      Dim s4484 As String
      Dim o4488 As Boolean
      Dim i4489 As Integer
      Dim b4491 As Byte
      Dim i4492 As Integer
      Dim s4494 As String
      Dim s4498 As String
      Dim s4502 As String
      Dim s4506 As String
      Dim s4510 As String
      Dim s4514 As String
      Dim s4518 As String
      Dim s4522 As String
      Dim s4526 As String
      Dim s4530 As String
      Dim s4534 As String
      Dim s4538 As String
      Dim o4542 As Boolean
      Dim cr4543 As ConfRecord
      Dim mh5209 As MessageHeader
      Dim ur5529 As UserRecord
      Dim o6179 As Boolean
      Dim o6180 As Boolean
      Dim w6181 As Word
      Dim b6183 As Byte
      Dim b6184 As Byte
      Dim b6185 As Byte
      Dim b6186 As Byte
      Dim w6187 As Word
      Dim b6189 As Byte
      Dim s6190 As String
      Dim i6194 As Integer
      Dim w6196 As Word
      Dim i6198 As Integer
      Dim i6200 As Integer
      Dim o6202 As Boolean
      Dim w6203 As Word
      Dim w6205 As Word
      Dim i6207 As Integer
      Dim w6209 As Word
      Dim w6211 As Word
      Dim w6213 As Word
      Dim w6215 As Word
      Dim w6217 As Word
      Dim b6219 As Byte
      Dim s6220 As String
      Dim s6224 As String
      Dim s6228 As String

      Dim s65503_ As String '! Temporary
      Dim i65507_ As Integer '! Temporary
      Dim s65509_ As String '! Temporary
      Dim i65513_ As Integer '! Temporary
      Dim s65515_ As String '! Temporary
      Dim s65519_ As String '! Temporary
      Dim s65523_ As String '! Temporary
      Dim s65527_ As String '! Temporary
      Dim s65531_ As String*1
      Dim s65532_ As String

      If User.UserId = 0 Then
        User.ScreenDisplay = 1
      End If
   70 If User.ScreenDisplay > 0 And Not (ANSIEnabled Or RIPEnabled) Then
        ActivityLog "[..the //.agïc \\°all aborted: ANSi/RIP not detected!..]"
        End
      End If
  110 s4463 = "the //.agïc \\°all!"
      Func4475((s4463))
      s4475 = ""
      s4479 = ""
      i4492 = FreeFile
      s4494 = "Now exiting "
      s4498 = ProgPath + "mb-wall.dat"
      s4502 = ProgPath + "mb-wall.ini"
      s4506 = ProgPath + "mb-wall.bad"
      s4510 = ProgPath + "mb-clr"
      s4514 = ProgPath + "mb-hdr"
      s4518 = ProgPath + "mb-ftr"
      s4522 = TempPath + "mb-wall.msg"
      s4526 = ProgPath + "mb-wall.sec"
      s4530 = ProgPath + "mb-wall.tag"
      s4534 = ProgPath + "mb-wall.zip"
      s4538 = ".bbs"
      o4542 = MorePrompt(1213417543)
      Sub3644(o6179, o6180, s4526)
      w6181 = 0
      b6183 = -1
      b6184 = 0
      b6185 = -1
      b6186 = -1
      w6187 = 13
      b6189 = -1
      s6190 = "@09@"
      i6194 = 5
      w6196 = 15
      i6198 = 11
      i6200 = 20
      o6202 = 0
      w6203 = 1
      w6205 = 0
      i6207 = 15
      w6209 = 1
      w6211 = 1
      w6213 = 0
      w6215 = 1
      w6217 = 10
      b6219 = 0
      s6220 = ""
      s6224 = "1DFM"
      s6228 = ""
      If RIPEnabled And Exists(s4514 + ".rip") Then
        s4538 = ".rip"
      Else
  579   If RIPEnabled Or ANSIEnabled And Exists(s4514 + ".scr") Then
          s4538 = ".scr"
        End If
      End If
  618 If Exists(s4514 + s4538) Then
        Open s4514 + s4538 For Input As i4492
        Input #1, s4484
        Close i4492
        If AtLen(Mid(s4484, 1, 4)) = 0 Then
          s6190 = "@0" + Mid(s4484, 3, 2)
          If s6190 = "@00@" Then
            s6190 = "@08@"
          End If
        End If
  751   If AtLen(Mid(s4484, 5, 4)) = 0 Then
          i4489 = Val(Mid(s4484, 6, 2))
          If i4489 > 0 And i4489 < 25 Then
            i6194 = i4489
          End If
        End If
  828   If AtLen(Mid(s4484, 9, 4)) = 0 Then
          i4489 = Val(Mid(s4484, 10, 2))
          If i4489 > 0 Then
            i6198 = i4489
          End If
        End If
      End If
  894 If RIPEnabled And Exists(s4510 + ".rip") Then
        s4538 = ".rip"
      Else
  934   If RIPEnabled Or ANSIEnabled And Exists(s4510 + ".scr") Then
          s4538 = ".scr"
        End If
      End If
  973 If Exists(s4510 + s4538) Then
        Open s4510 + s4538 For Input As i4492
        Input #1, s4484
        Close i4492
        If AtLen(Mid(s4484, 1, 4)) = 0 Then
          i4489 = Val(Mid(s4484, 2, 2))
          If i4489 > 0 Then
            i6207 = i4489
          End If
        End If
      End If
 1101 If ParamCount < 1 And o6179 Or o6180 Then
        s4475 = s4475 + "[@0F@A" + s6190 + "]dd OneLiner, "
        s4479 = s4479 + "A"
      End If
 1171 s4475 = s4475 + "[@0F@I" + s6190 + "]nfo, "
      s4479 = s4479 + "I"
      s4475 = s4475 + "[@0F@Q" + s6190 + "]uit "
      s4479 = s4479 + "Q" + Chr(13)  + Chr(27)
      s65532_ = s6190
      If s65532_ = "@00@" Then GoTo 1313
      If s65532_ = "@08@" Then
 1313   s4475 = "@08@──@07@── " + s6190 + s4475 + "@07@──@08@──"
      Else
 1347   If s65532_ = "@01@" Then GoTo 1381
        If s65532_ = "@09@" Then
 1381     s4475 = "@01@──@09@── " + s6190 + s4475 + "@09@──@01@──"
        Else
 1415     If s65532_ = "@02@" Then GoTo 1449
          If s65532_ = "@0A@" Then
 1449       s4475 = "@02@──@0A@── " + s6190 + s4475 + "@0A@──@02@──"
          Else
 1483       If s65532_ = "@03@" Then GoTo 1517
            If s65532_ = "@0B@" Then
 1517         s4475 = "@03@──@0B@── " + s6190 + s4475 + "@0B@──@03@──"
            Else
 1551         If s65532_ = "@04@" Then GoTo 1585
              If s65532_ = "@0C@" Then
 1585           s4475 = "@04@──@0C@── " + s6190 + s4475 + "@0C@──@04@──"
              Else
 1619           If s65532_ = "@05@" Then GoTo 1653
                If s65532_ = "@0D@" Then
 1653             s4475 = "@05@──@0D@── " + s6190 + s4475 + "@0D@──@05@──"
                Else
 1687             If s65532_ = "@06@" Then GoTo 1721
                  If s65532_ = "@0E@" Then
 1721               s4475 = "@06@──@0E@── " + s6190 + s4475 + "@0E@──@06@──"
                  Else
 1755               If s65532_ = "@07@" Then GoTo 1789
                    If s65532_ = "@0F@" Then
 1789                 s4475 = "@07@──@0F@── " + s6190 + s4475 + "@0F@──@07@──"
                      GoTo 1823
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
      End If
 1823 If RIPEnabled Then
        Func2584(("PostRip"))
      End If
      Do
 1860   MorePrompt(0)
        Print "@00@";
        Cls
        Func2584((s4514))
        Func6342
        Func2584((s4518))
        CancelDisplayStopped
        Locate i6200, 1
        Print Func2447(s4475, (79)); " ";
        s4483 = Func3567((s4479 + s6224), (0))
        MoveLeft AtLen(s4475) + 1
        Print Space(AtLen(s4475) + 1);
        s65531_ = s4483
        If s65531_ = "A" Then
          If Func4827 Then
            s4494 = "Thank you for using "
            GoTo 2205
          End If
 2128   Else
 2134     If s65531_ = "I" Then
            Sub8985
          Else
 2165       If InStr(s6224, s4483) Then
              PushCommand s4483
            End If
 2193       GoTo 2205
          End If
        End If
 2199 Loop
 2205 Print
      Print s6190 + s4494 + """@0B@" + s4463 + s6190 + """."
      Delay 0.4
 2255 Print DefColor
      MorePrompt(o4542)
      Func4475((""))
      End
      Catch 15
        GoTo 2255
      GoTo 2327
 2327

'! Called 5 times
      Function Func2447(s65534 As String, i65532 As Integer) As String
        Dim i65526 As Integer

        i65526 = i65532 - AtLen(s65534) + 1 / 2 - 1
        If ANSIEnabled Or RIPEnabled Then
          Func2447 = Chr(27) + "[" + Str(i65526) + "C" + s65534
        Else
 2553     Func2447 = Space(i65526) + s65534
        End If
 2573
      End Function

'! Called 4 times
      Function Func2584(s65534 As String) As Integer
        Dim s65524 As String*4
        Dim s65528 As String

        Func2584 = -1
        s65528 = ""
        If InStr(s65534, "\") = 0 Then
          s65528 = ProgPath
        End If
 2640   s65534 = LCase(s65534)
        If InStr(".bbs.rip.scr.", Right(s65534, 4) + ".") > 0 Then
          s65534 = Left(s65534, Len(s65534) - 4)
        End If
 2718   s65524 = ""
        If InStr(Right(s65534, 4), ".") = 0 Then
          If ANSIEnabled And User.ScreenDisplay > 0 Then
            s65524 = ".scr"
          Else
 2798       If RIPEnabled Then
              s65524 = ".rip"
            End If
          End If
        End If
 2818   CancelDisplayStopped
        If Not DisplayTextFile(s65528 + s65534 + s65524) Then
          If Not DisplayTextFile(s65528 + s65534 + ".bbs") Then
            Func2584 = DisplayFile(s65534)
          End If
        End If
 2896
      End Function

'! Called 3 times
      Function Func2908(i65534 As Integer) As String
        Dim s65514 As String
        Dim s65518 As String
        Dim s65522 As String
        Dim s65526 As String

        Do
 2917     s65526 = InKey(1213417543)
        Loop Until Len(s65526) > 0
        s65522 = Left(s65526, 1)
        If s65522 = Chr(0) Then
          If i65534 = 1 Then
            s65526 = Str(InStr("ROPQKSMGHI", InKey(1213417543)) - 1)
            If s65526 = "5" Then
              s65526 = "."
            End If
 3044     Else
 3050       s65526 = Chr(0) + InKey(1213417543)
          End If
 3068   Else
 3074     If s65522 = Chr(27)  Then
            s65526 = InKey(1213417543) + InKey(1213417543)
            If i65534 = 1 Then
              s65518 = s65526
              If s65518 = "[A" Then
                s65526 = "8"
              Else
 3170           If s65518 = "[B" Then
                  s65526 = "2"
                Else
 3202             If s65518 = "[C" Then
                    s65526 = "6"
                  Else
 3234               If s65518 = "[D" Then
                      s65526 = "4"
                    Else
 3266                 s65526 = Chr(27)
                    End If
                  End If
                End If
              End If
 3275       Else
 3281         s65514 = s65526
              If s65514 = "[A" Then
                s65526 = "H"
              Else
 3321           If s65514 = "[B" Then
                  s65526 = "P"
                Else
 3353             If s65514 = "[C" Then
                    s65526 = "M"
                  Else
 3385               If s65514 = "[D" Then
                      s65526 = "K"
                    Else
 3417                 s65526 = Chr(27)
                    End If
                  End If
                End If
              End If
            End If
 3426     Else
 3432       If i65534 = 1 And InStr("VFXCSGDAER", Chr(Asc(s65526) + 64)) Then
              s65526 = Str(InStr("VFXCSGDAER", Chr(Asc(s65526) + 64)) - 1)
              If s65526 = "5" Then
                s65526 = "."
              End If
            End If
          End If
        End If
 3532   Func2908 = s65526
      End Function

'! Called 2 times
      Function Func3567(s65534 As String, i65532 As Integer) As String
        Dim s65524 As String

        Do
 3576     s65524 = UCase(Left(Func2908(i65532), 1))
        Loop While InStr(s65534, s65524) = 0
        Func3567 = s65524
      End Function

'! Called 1 time
      Sub Sub3644(o65534 As Boolean, o65532 As Boolean, s65530 As String)
        Dim l65518 As Long
        Dim i65522 As Integer
        Dim i65524 As Integer
        Dim s65526 As String

        o65532 = UserSec.SysopStatus = 1 Or UserSec.SysopStatus = 2
        o65534 = 0
        Open s65530 For Input As 1
 3717   Do While Not EOF(1)
          Input #1, s65526
          If s65526 <> "" Then
            If User.SecLevel = s65526 Then
              o65534 = -1
              GoTo 4021
            Else
 3798         If Val(s65526) > 0 And Val(UserSec.DoorProfile) >= Val(s65526) Then
                o65534 = -1
                GoTo 4021
              End If
            End If
 3854
 3875       For i65524 = 1 To 5 Step 1
              If User.Secondary(i65524) = s65526 Then
                o65534 = -1
                GoTo 4021
              End If
 3992       Next
          End If
 4015   Loop
 4021   Close 1
        Catch 10
          o65534 = -1
        GoTo 4057
 4057
      End Sub

'! Called 1 time
      Function Func4064(s65534 As String) As Boolean
        Dim l65462 As Long
        Dim i65466 As Integer
        Dim i65468 As Integer
        Dim i65470 As Integer
        Dim t26_65472 As Type26

        t26_65472.s59 = Chr(13) + Chr(10)
        i65470 = FreeFile
        If Exists(s65534) Then
          Func4064 = -1
        Else
 4125     CarrierCheck(0)
          Open s65534 For Random As i65470 Len = 61 '! This value should probably be replaced with a "SizeOf" expression
 4180     For i65468 = 1 To MaxNode + 1 Step 1
            t26_65472.s0 = LeftPad(Str(i65468 - 1), 3)
            Put i65470, i65468, t26_65472 '! 61 bytes
          Next
 4294     Close i65470
          CarrierCheck(-1)
          Func4064 = Exists(s65534)
        End If
 4323
      End Function

'! Called 0 times
'!      Function Func4331(i65534 As Integer) As String
'!        Dim i65467 As Integer
'!        Dim t27_65469 As Type27

'!        If MaxNode < 2 Then
'!          Func4331 = "In a wcCODE App"
'!        Else
'! 4368     Inc i65534
'!          i65467 = FreeFile
'!          t27_65469.s59 = Chr(13) + Chr(10)
'!          Open "whoson.tmb" For Random As i65467 Len = 61 '! This value should probably be replaced with a "SizeOf" expression
'!          Get i65467, i65534, t27_65469 '! 61 bytes
'!          Close i65467
'!          Func4331 = t27_65469.s39
'!        End If
'! 4464
'!      End Function

'! Called 2 times
      Function Func4475(s65534 As String) As Boolean
        Dim s65462 As String '! Temporary
        Dim i65466 As Integer
        Dim i65468 As Integer
        Dim i65470 As Integer
        Dim t28_65472 As Type28

        If MaxNode < 2 Then
          Func4475 = 0
        Else
 4509
          If Not Func4064(("whoson.tmb")) Then
          Else
 4550       i65468 = Node + 1
            i65470 = FreeFile
            i65466 = Len(ProgPath)
            t28_65472.s0 = LeftPad(Str(Node), 3)
            t28_65472.s4 = User.Name
            t28_65472.s30 = Mid(ProgName, i65466 + 1, Len(ProgName) - i65466 - 4)
            t28_65472.s39 = s65534
            t28_65472.s59 = Chr(13) + Chr(10)
            Open "whoson.tmb" For Random As i65470 Len = 61 '! This value should probably be replaced with a "SizeOf" expression
            CarrierCheck(0)
            If LockFile(i65470, i65468, i65468) Then
              Put i65470, i65468, t28_65472 '! 61 bytes
              UnlockFile(i65470, i65468, i65468)
              Func4475 = -1
            Else
 4794         Func4475 = 0
            End If
 4800       CarrierCheck(-1)
            Close i65470
          End If
        End If
 4815
      End Function

'! Called 1 time
      Function Func4827 As Boolean
        Dim i65503 As Integer '! Temporary
        Dim s65505 As String '! Temporary
        Dim i65509 As Integer '! Temporary
        Dim s65511 As String '! Temporary
        Dim i65515 As Integer '! Temporary
        Dim s65517 As String '! Temporary
        Dim s65521 As String '! Temporary
        Dim s65525 As String '! Temporary
        Dim i65529 As Integer '! Temporary
        Dim s65531 As String

        CancelDisplayStopped
        Locate 20, 5
        Print s6190 + "Enter your OneLiner ƒor ""@0B@" + s4463 + s6190 + """:";
        Locate 22, 1
        ClrEOL
        Locate 22, 1
        Print s6190 + "[" + Space(77) + "]";
        Do
 4926     Locate 22, 2
          Print DefColor + s4467 + Space(77 - AtLen(s4467));
          Locate 22, 2 + AtLen(s4467)
          s4484 = Func2908((0))
          s65531 = s4484
          If s65531 = Chr(13)  Then
            GoTo 5299
          Else
 5039       If s65531 = Chr(27)  Then
              If AtLen(s4471) = 0 Then
                GoTo 5299
              End If
 5078         s4471 = ""
            Else
 5093         If s65531 = Chr(25)  Then GoTo 5127
              If s65531 = "" Then
 5127           s4471 = ""
              Else
 5142           If s65531 = Chr(8)  Then
                  s4471 = Left(s4471, Len(s4471) - 1)
                Else
 5187             If s65531 <= Chr(27)  Then
                  Else
 5210               If AtLen(s4467) < 77 And Len(s4467) <= 245 Then
                      s4471 = s4471 + s4484
                    Else
 5260                 Beep
                    End If
                  End If
                End If
              End If
            End If
          End If
 5263
          s4467 = Func7091((s4471))
        Loop
 5299   o4488 = AtLen(s4467) > 2
        If o4488 Then
          If AtLen(Left(Trim(s4467), 4)) = 4 Then
            CancelDisplayStopped
            Print
            If InputYesNo(s6190 + "Would you like to change the Default Color? [@0F@" + UCase(YesChar) + s6190 + "/@0F@" + LCase(NoChar) + s6190 + "] ", -1) Then
              Cls
              Func2584((s4510))
              s4483 = Mid(DefColor, 3, 1)
              Do
 5467           CancelDisplayStopped
                Locate i6207, 1
                Print Func2447(("@0" + s4483 + "@" + Trim(s4467)), (79));
                Locate 20, 1
                Print Func2447((s6190 + "Enter the Color you would like: "), (79));
                s4484 = Func3567(("123456789ABCDEF" + Chr(13) ), (0))
                If s4484 = Chr(13)  Then
                  GoTo 5723
                Else
 5690             s4483 = s4484
                  Print "@0B@"; s4483;
                End If
 5717         Loop
 5723         s4467 = "@0" + s4483 + "@" + s4467
            Else
 5759         s4467 = DefColor + s4467
            End If
          End If
 5772     CancelDisplayStopped
          Print
          Print s6190 + "Updating ""@0B@" + s4463 + s6190 + """ data files...  @" + Str(Val(Mid(s6190, 2, 1)) + 8) + Mid(s6190, 3, 1) + "@Please wait..." + s6190;
          s4467 = Func8762(s4467)
          o4488 = AtLen(s4467) > 0
          If o4488 Then
            CarrierCheck(0)
            i4492 = FreeFile
            Open s4498 For Append As i4492
            Print #i4492, s4467
            Close i4492
            ActivityLog "[.." + s4463 + "....Activity!..]"
            ActivityLog "-- " + s4467
            CarrierCheck(-1)
          Else
 6002       Print
            o4488 = -1
          End If
 6012     Delay 1
          MoveLeft 80
          ClrEOL
        End If
 6028   Func4827 = o4488
      End Function

'! Called 9 times
      Function Func6070(s65534 As String, i65532 As Integer, i65530 As Integer, s65528 As String) As String
        If i65532 > Len(s65534) Then
          s4484 = s65534
        Else
 6119     If i65532 = 1 Then
            s4484 = s65528 + Mid(s65534, i65532 + i65530, 1213417543)
          Else
 6184       If i65532 + i65530 > Len(s65534) Then
              s4484 = Mid(s65534, 1, i65532 - 1) + s65528
            Else
 6257         s4484 = Mid(s65534, 1, i65532 - 1) + s65528 + Mid(s65534, i65532 + i65530, 1213417543)
            End If
          End If
        End If
 6323   Func6070 = s4484
      End Function

'! Called 1 time
      Function Func6342 As Integer
        Dim i65309 As Integer '! Temporary
        Dim s65311 As String '! Temporary
        Dim l65315 As Long
        Dim b65319 As Byte
        Dim l65320 As Long
        Dim b65324 As Byte
        Dim l65325 As Long
        Dim b65329 As Byte
        Dim s65330(0 To 50) As String

        If ReadBackOpen(s4498) Then
          ReadBackNext
          If o6202 Then
 6403       For b4491 = 1 To i6198 Step 1
              s65330(b4491) = Trim(ReadBackNext)
            Next
 6510     Else
 6516
 6542       For b4491 = i6198 To 1 Step - 1
              s65330(b4491) = Trim(ReadBackNext)
            Next
          End If
 6649     ReadBackClose
 6676     For b4491 = 1 To i6198 Step 1
            CancelDisplayStopped
            Locate b4491 + i6194 - 1, 1
            Print Func2447((DefColor + s65330(b4491)), (79))
          Next
 6847     Func6342 = b4491
        Else
 6863     Func6342 = - i6198
        End If
 6875
      End Function

'! Called 1 time
      Function Func7091(s65534 As String) As String
        Dim s65418 As String '! Temporary
        Dim i65422 As Integer '! Temporary
        Dim i65424 As Integer '! Temporary
        Dim s65426 As String '! Temporary
        Dim s65430 As String '! Temporary
        Dim i65434 As Integer '! Temporary
        Dim i65436 As Integer '! Temporary
        Dim s65438 As String '! Temporary
        Dim s65442 As String '! Temporary
        Dim i65446 As Integer '! Temporary
        Dim i65448 As Integer '! Temporary
        Dim s65450 As String '! Temporary
        Dim s65454 As String '! Temporary
        Dim i65458 As Integer '! Temporary
        Dim i65460 As Integer '! Temporary
        Dim s65462 As String '! Temporary
        Dim s65466 As String '! Temporary
        Dim i65470 As Integer '! Temporary
        Dim i65472 As Integer '! Temporary
        Dim s65474 As String '! Temporary
        Dim s65478 As String '! Temporary
        Dim i65482 As Integer '! Temporary
        Dim i65484 As Integer '! Temporary
        Dim s65486 As String '! Temporary
        Dim s65490 As String '! Temporary
        Dim i65494 As Integer '! Temporary
        Dim i65496 As Integer '! Temporary
        Dim s65498 As String '! Temporary
        Dim s65502 As String '! Temporary
        Dim i65506 As Integer '! Temporary
        Dim i65508 As Integer '! Temporary
        Dim s65510 As String '! Temporary
        Dim s65514 As String '! Temporary
        Dim i65518 As Integer '! Temporary
        Dim i65520 As Integer '! Temporary
        Dim s65522 As String '! Temporary
        Dim s65526 As String

        Do
 7100     i4489 = InStr(i4489, s65534, "@")
          If i4489 = 0 Then
            GoTo 7468
          End If
 7144     If InStr("0123456789ABCDEF", Mid(s65534, i4489 + 1, 1)) > 0 And InStr("0123456789ABCDEF", Mid(s65534, i4489 + 2, 1)) > 0 And Mid(s65534, i4489 + 3, 1) = "@" Then
            If Mid(s65534, i4489 + 2, 1) = "0" Then
              s65534 = Func6070((s65534), (i4489), (4), (DefColor))
            Else
 7368
              s65534 = Func6070((s65534), (i4489), (2), ("@0"))
            End If
          End If
 7456     Inc i4489
        Loop
        Do
 7468     i4489 = InStr(i4489, s65534, "`")
          If i4489 = 0 Then
            GoTo 7903
          End If
 7512     s4484 = Mid(s65534, i4489 + 1, 1)
          If InStr("1234567890!@#$%", s4484) Then
            s65534 = Func6070((s65534), (i4489), (2), ("@" + Right(Hex(InStr("1234567890!@#$%", s4484)), 2) + "@"))
          Else
 7677       If s4484 = "`" Then
              s65534 = Func6070((s65534), (i4489), (2), ("`"))
            Else
 7788         If s4484 = "^" Then
                s65534 = Func6070((s65534), (i4489), (2), (DefColor))
              End If
            End If
          End If
 7891     Inc i4489
        Loop
        Do
 7903     i4489 = InStr(i4489, s65534, "|")
          If i4489 = 0 Then
            GoTo 8278
          End If
 7947     s4484 = Mid(s65534, i4489 + 1, 2)
          s65526 = s4484
          If s65526 = "00" Then
            s65534 = Func6070((s65534), (i4489), (3), (DefColor))
          Else
 8088       If s65526 >= "01" And s65526 <= "09" Then GoTo 8148
            If s65526 >= "10" And s65526 <= "15" Then
 8148
              s65534 = Func6070((s65534), (i4489), (3), ("@" + Right(Hex(Val(s4484)), 2) + "@"))
              GoTo 8266
            End If
          End If
 8266     Inc i4489
        Loop
        Do
 8278     i4489 = InStr(i4489, s65534, "@X")
          If i4489 = 0 Then
            GoTo 8665
          End If
 8322     s4484 = Mid(s65534, i4489 + 2, 2)
          If InStr("0123456789ABCDEF", Mid(s4484, 1, 1)) > 0 And InStr("0123456789ABCDEF", Mid(s4484, 2, 1)) > 0 Or Mid(s4484, 1, 2) = "X@" Then
            If s4484 = "X@" Or Mid(s4484, 2, 1) = "0" Then
              s65534 = Func6070((s65534), (i4489), (4), (DefColor))
            Else
 8547
              s65534 = Func6070((s65534), (i4489), (4), ("@0" + Right(s4484, 1) + "@"))
            End If
          End If
 8653     Inc i4489
        Loop
 8665   Func7091 = s65534
      End Function

'! Called 1 time
      Function Func8762(s65534 As String) As String
        Dim i65528 As Integer '! Temporary

        If Exists(s4506) Then
          i4492 = FreeFile
          CarrierCheck(0)
          Open s4506 For Input As i4492
          Do
 8819       Input #i4492, s4484
            If InStr(LCase(s65534), LCase(s4484)) > 0 Then
              Sub9573((1))
              ActivityLog "[.." + s4463 + "....iLLEGAL Activity!..]"
              ActivityLog "-- " + LCase(s65534)
              s65534 = ""
              GoTo 8949
            End If
 8935     Loop Until EOF(i4492)
 8949     Close i4492
          CarrierCheck(-1)
        End If
 8964   Func8762 = s65534
      End Function

'! Called 1 time
      Sub Sub8985
        Dim i65523 As Integer '! Temporary
        Dim i65525 As Integer '! Temporary
        Dim i65527 As Integer '! Temporary
        Dim i65529 As Integer '! Temporary
        Dim s65531 As String '! Temporary
        Dim s65535 As String*1

        Print "@00@";
        Cls
        Print "@09@▄ @19@█▓@10@▀@19@▒░@10@▀@0F@   @19@░@10@▀▀@19@▓@0F@   @10@▀▀▀@09@▄▓▄▄▄@10@▀▀▀██@19@░▓@0F@   @19@▓@01@▓@10@▀@19@░@10@▀@01@▓  ▓@19@▒░@10@▀▀▀▀@01@▓ @10@▀▀▀@01@▓@10@▀▀@07@  @01@▄▓  ▓█@10@▀▀▀▀▀▀@01@▓▒░░"
        Print "@19@█▓▓▒▒▒░░░      @01@▓@19@░░▒▒▓▓▓▒▒▒▒░░░@10@▀ @19@▒░░▒▒▓    ▓▒░░@01@▓@10@    @01@▒@10@     @01@▓@10@ @01@▓@10@      @01@▓@10@       @01@▓▓▒▒@10@▀"
        Print "@19@▓▓░@1B@the //.agï@0B@c@10@▄@1B@\\°all!@10@▄▄@01@▓@10@▄@19@▒  @01@▓▒▀@19@▒@10@▄██@19@░@01@▓@10@ ▄▄@01@▓ @10@▄@19@░@01@▒@10@▄▄▄▄▄▄@19@▓▒░@01@▓▒@10@▄▄▄@19@▓▒@01@█▓▒@09@v@19@í.3o.4í2∙ß@01@▓▓▒"
        Print "@19@▒▒ @01@──@10@ @01@─@10@▄▄@01@▓─┬──┴──┬──┴──┬───@19@░ @01@▓──┴──┬─▒──@19@░@01@┬──┴░─┬──┴──┬─░┴──┬─@19@░@01@▓@10@▄@01@─┬──┴──@19@░@01@─@10@▄@01@──▓▒─"
        Print "@01@─@19@░@01@┬──┴──@03@A oNELiNER PRoGRAM FoR WiLDCAT! v4.íx@01@──┴──┬──┴─@0B@the //.agïc ßox!@01@┴──┬─▒┴─"
        Print "@01@─@10@ @01@┴──┬──@03@CoDED BY ""HoUDiNi""@01@┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴@03@(3oí.68í.7782)@01@┬──┴──┬─"
        Print "@01@──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴─"
        Print "@01@──┴──┬──@03@THiS iS A ßETA-TEST FoR A NEW oNELiNER ENTRY PRoCESS. iT SHoULD@01@┬──┴──┬─"
        Print "@01@──┬──┴──@03@ALLoW iNSTANT CoLoR CHANGES WHiLE ENTERiNG YoUR oNELiNER!  iF@01@──┴──┬──┴─"
        Print "@01@──┴──┬──@03@ALL GoES WELL, iT WiLL BE iNCoRPoRATED iNTo ALL FUTURE VERSioNS@01@┬──┴──┬─"
        Print "@01@──┬──┴──@03@oF ""@0B@the //.agïc \\°all!@03@""  BASiCALLY, iF iT DoESN'T CHANGE, THEN@01@┴──┬──┴─"
        Print "@01@──┴──┬──@03@THE CoLoR SCHEME YoU ARE ATTEMPTiNG, iS AN UNSUPPoRTED FoRMAT.@01@─┬──┴──┬─"
        Print "@01@─@19@█@01@┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴──┬──┴─"
        Print "@01@──┴──┬──@03@iT HANDLES ALL CoLoR SCHEMES FRoM oTHER BBS SYSTEMS, AS WELL AS@01@┬──┴@19@█@01@─┬─"
        Print "@01@─@19@▓@01@┬──┴──@03@THE CoDES FRoM THE MEGA-PoPULAR DooR GAME ""LoRD""!@01@──@19@░@01@──┬──┴──┬──┴──┬@19@▓@01@─┴─"
        Print "@01@─@19@▓▓ @01@─┬─@10@   @01@─@10@▀@01@─┴─┬─@19@░@01@──┴@10@▀@01@─┬──┴──┬──┴──@19@▓@01@──┴──┬──┴──┬─@10@▀@01@┴──┬──┴@10@ @19@░▒@10@▀@01@▓┴──┬@10@▀@01@─┴▓@10@ ▀ @19@▒@01@─@19@▒@10@▄@01@──"
        Print "@01@@10@▀@19@▓▒▒░░░░@10@▀   ▀▀▀@09@▄@19@▓░ @01@▓▓▒@10@▀@01@░▒▓@10@ ▀▀@01@▓@10@▀@19@░░▒▓▓█@10@▀@19@▓▒▒░ ░  @10@▀▀▀@19@▒@10@▀▀@19@░@10@▀  @01@▓@10@▀@19@▒▓▒░░░ ░@10@▀    ▀@19@▓▒░  @18@░▒"
        Print "@01@@10@▀▀@19@▒░░    @01@▓█@19@░░▒▓@09@▀@10@▄▄▄@01@▓@10@▄@01@▒@10@▄     @01@▓▓@10@▄▄▄ @07@ @10@ @19@▒@07@ @10@▄▄▄@01@▓@10@▄▄ @19@░░  ░@10@▄▄▄▄@01@▓@10@▄▄▄  ▄▄@01@▓@10@ ▄▄▄▄@01@▓  ░▒▓@10@ @01@█▓"
        Print "@01@@10@█@19@░░@01@▀@0F@                 @01@░   @10@▄@01@▓                   @10@▄@19@▒@0F@                            @19@▀"
        Print "@01@@0F@  @19@░@0F@                      @10@█@01@▒                    ▒                            ▒"
        Print "@01@                                               ░                            ░@07@"
        Locate 20, 1
        Print Func2447(("@01@──@09@── [@0F@C@09@]omment to SysOp, [@0F@ENTER@09@] to continue ──@01@──"), (79));
        s4483 = UCase(Func2908((0)))
        s65535 = s4483
        If s65535 = "C" Then
          Sub9573((0))
        Else
 9334     If s65535 = "D" Then
            If Exists(s4534) Then
              Locate 20, 1
              ClrEOL
              If InputYesNo("@09@ Are you sure you want to download ""@0B@" + s4463 + "@09@""? [@0F@" + LCase(YesChar) + "@09@/@0F@" + UCase(NoChar) + "@09@] ", 0) Then
                If SendFile(s4534, 1213417543) Then
                  CarrierCheck(0)
                  Sub9573((2))
                  ActivityLog "[.." + s4463 + "....DoWNLoADED!..]"
                  CarrierCheck(-1)
                Else
 9512             ActivityLog "[.." + s4463 + "....DoWNLoAD FAiLED/ABoRTED!..]"
                End If
              End If
 9533       Else
 9539         ActivityLog "[.." + s4463 + "....DoWNLoAD ATTEMPT, ZiP FiLE NoT FoUND!..]"
            End If
 9560       GoTo 9566
          End If
        End If
 9566
      End Sub

'! Called 3 times
      Sub Sub9573(i65534 As Integer)
        Dim i65529 As Integer
        Dim o65531 As Boolean
        Dim i65532 As Integer

        GetConfInfo(cr4543, 0)
        o65531 = FlagIsSet(cr4543.CFlags, 50)
        If Exists(s4522) Then
          Kill s4522
        End If
 9630   mh5209.Flags = 3
        GetUser(ur5529, MakeWild.SysopName)
        If AtLen(ur5529.Alias) > 0 And o65531 Then
          mh5209.To = ur5529.Alias
        Else
 9716     mh5209.To = ur5529.Name
        End If
 9736   mh5209.ToId = ur5529.UserId
        mh5209.ToTitle = ur5529.Title
        mh5209.From = s4463
        mh5209.FromId = 0
        mh5209.FromTitle = ""
        i65529 = i65534
        If i65529 = 1 Then
          mh5209.Subject = "tMW-iLLEGAL ACTiViTY"
          i65532 = FreeFile
          If i65532 > 0 Then
            Open s4522 For Output As i65532
            Print #i65532, "Node: "; Node; , ; NodeInfo.BaudRate; , ; CallerIdResult
            Print #i65532, User.Name + " [" + User.Alias + "]"
            Print #i65532, "wrote the following one-liner that contained a word listed in"
            Print #i65532, "the ""filter"" file:"
            Print #i65532, s4467; DefColor
            Close i65532
            AddMessage(mh5209, s4522, "", 0)
          Else
10073       ActivityLog "■ FiLE ERRoR ■ CoULD NoT WRiTE CoMMENT To SYSoP ■"
          End If
10081   Else
10087     If i65529 = 2 Then
            mh5209.Subject = "tMW-DoWNLoADED"
            i65532 = FreeFile
            If i65532 > 0 Then
              Open s4522 For Output As i65532
              Print #i65532, "Node: "; Node; , ; NodeInfo.BaudRate; , ; CallerIdResult
              Print #i65532, User.Name + " [" + User.Alias + "]"
              Print #i65532, "has downloaded tMW from within"
              Close i65532
              AddMessage(mh5209, s4522, "", 0)
            Else
10304         ActivityLog "■ FiLE ERRoR ■ CoULD NoT WRiTE CoMMENT To SYSoP ■"
            End If
10312     Else
10318       mh5209.Subject = s4463
            mh5209.FromId = User.UserId
            mh5209.FromTitle = User.Title
            If AtLen(User.Alias) > 0 And o65531 Then
              mh5209.From = User.Alias
            Else
10428         mh5209.From = User.Name
            End If
10448       If EditMessage(mh5209, s4522, 1213417543) Then
              AddMessage(mh5209, s4522, "", 0)
            End If
          End If
        End If
10486   If Exists(s4522) Then
          Kill s4522
        End If
10506
      End Sub